(Fgarbage_collect): Don't use XSETFLOAT.

diff --git a/src/alloc.c b/src/alloc.c
index 20240136526ae564fb38eba1389ae13d17b5ab7d..d703d3d99b267b5cad51b5cb0f5e9b5981561a8c 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4381,9 +4381,9 @@ Garbage collection happens automatically if you cons more than
   EMACS_GET_TIME (t2);
   EMACS_SUB_TIME (t3, t2, t1);
   if (FLOATP (Vgc_elapsed))
-    XSETFLOAT (Vgc_elapsed, make_float (XFLOAT_DATA (Vgc_elapsed) +
-                                       EMACS_SECS (t3) +
-                                       EMACS_USECS (t3) * 1.0e-6));
+    Vgc_elapsed = make_float (XFLOAT_DATA (Vgc_elapsed) +
+                             EMACS_SECS (t3) +
+                             EMACS_USECS (t3) * 1.0e-6);
   gcs_done++;
 
   return Flist (sizeof total / sizeof *total, total);